home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / mint / tt / emacs1~1.zoo / DOTemacs next >
Encoding:
Text File  |  1993-02-13  |  3.1 KB  |  105 lines
  1. ;;  gnu emacs startup file .emacs
  2. ;;
  3. ;;  With contribution from a lot of people.
  4. ;;  Amongst them:
  5. ;;             Jwahar R. Bammi
  6. ;;             Erling Henanger
  7. ;;
  8. ;; personal key preferences
  9. ;;
  10. ;;
  11. ;;
  12. (setq debug-on-error nil)
  13. ;;
  14. (global-set-key "\^X6" 'indent-region)
  15. (global-set-key "\^X3" 'kill-compilation)
  16. (global-set-key "\^]" 'isearch-forward)
  17. (global-set-key "\^H" 'delete-backward-char)
  18. (global-set-key "\^_" 'help-command)
  19. (global-set-key "\eg" 'goto-line)
  20. (global-set-key "\^Xd" 'cd)
  21. (global-set-key "\^C\^C" 'compile)
  22. (global-set-key "\^C\^G" 'grep)
  23. (global-set-key "\e " 'set-mark-command)
  24. (global-set-key "\en" 'next-error)
  25. (global-set-key "\ec" 'ispell-complete)
  26. (global-set-key "\e$" 'ispell-word)
  27. (define-key ctl-x-map "g" 'goto-line)
  28. (define-key ctl-x-map "!" 'electric-command-history)
  29. (define-key ctl-x-map "=" 'what-line)
  30. (define-key ctl-x-map "\^R" 'copy-to-register)
  31. (define-key ctl-x-map "\^I" 'insert-register)
  32. (define-key ctl-x-map "\^Z" 'scroll-other-window)
  33. (setq default-major-mode 'text-mode)
  34. (setq ctl-arrow t)
  35. (setq meta-flag t)
  36. (setq-default c-mode-hook
  37.           '(lambda ()        ; for C mode:
  38.          (turn-on-auto-fill)    ; use auto-fill
  39.          (defvar fill-loaded nil)
  40.          (if fill-loaded nil
  41.            (load-library "c-fill") ; load c-comment
  42.            (setq fill-loaded t)))) ; (only once!)
  43.  
  44. ;; define function keys
  45. (define-key global-map "\C-x\C-b" 'electric-buffer-list) ; ^X^B
  46. (define-key global-map "\M-O" 'advertised-undo)   
  47. ;
  48. (defun show-matching-paren (arg)
  49.   "Act as if a close-paren had been self-inserted."
  50.   (interactive "p")
  51.   (forward-char)
  52.   (blink-matching-open)
  53.   (backward-char))
  54.  
  55. ;; ESC-ESC
  56. (put 'eval-expression 'disabled nil)
  57. ;;
  58. ;; All files end with a Newline automatically
  59. (setq TeX-dvi-print-command "dviprint -d 5 -s")
  60. ;;
  61. ;; Where to find info directory
  62. (setq Info-directory "/usr/local/emacs/info/")
  63. (setq Info-enable-edit t)
  64. ;;
  65. ;; default major mode
  66. ;; turn-on-auto-fill is def'ed in simple.el
  67. (setq text-mode-hook 'turn-on-auto-fill) 
  68. ;;
  69. ;; Subshell prompt pattern
  70. (setq shell-prompt-pattern "^[^#$%>]*[#$%>][0-9]* *")
  71.  
  72. ;; default mode for TeX editing
  73. (setq-default TeX-default-mode 'LaTeX-mode)
  74. ;;
  75. (autoload 'gnu-plot-mode "gnuplot" nil t)
  76. (autoload 'cal "calendar" "Nifty Calendar package" t)
  77. (setq load-path (append load-path 
  78.             (list
  79.              "/home/erlingh/Emacs"
  80.              "/home/erlingh/Emacs/modes"
  81.              "/home/erlingh/Emacs/modes/auc-tex"
  82.              "/home/erlingh/Emacs/templates"
  83.              "/home/erlingh/SmallTalk"
  84.              "/home/erlingh/Emacs/hooks")))
  85.  
  86. (autoload 'c++-mode "c++-mode" "" t)
  87. (setq auto-mode-alist (append '(("\\.bib$" . bibtex-mode)
  88.                 ("\\.tex$" . latex-mode)
  89.                 ("\\.el$" . lisp-interaction-mode)
  90.                 ("\\.st$" . smalltalk-mode)
  91.                 ("\\.cc$" . c++-mode)
  92.                 ("\\.hh$" . c++-mode)) auto-mode-alist))
  93.  
  94. (autoload 'ispell-buffer "ispell" "" t)
  95. (autoload 'smalltalk-mode "~/SmallTalk/st" "" t)
  96. (global-set-key "\C-x9" 'compile)
  97. (setq shell-file-name "/bin/sh")        ; Denne brukes ved compile.
  98.  
  99. (setq default-fill-column 70)
  100. (setq require-final-newline "yes")
  101. (setq mail-archive-file-name "~/OUTBOX" )
  102. (load "time" nil t)
  103. (display-time)
  104. ;(find-file "/usr/local/src/bootedit/minixed.cc")
  105.